home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / net / netisr.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  484 b   |  22 lines
  1. if (!defined &_NETISR) {
  2.     eval 'sub _NETISR {1;}';
  3.     if (defined( &vax) || defined( &tahoe)) {
  4.     eval 'sub setsoftnet {
  5.         eval " &mtpr( &SIRR, 12)";
  6.     }';
  7.     }
  8.     eval 'sub NETISR_RAW {0;}';
  9.     eval 'sub NETISR_IP {2;}';
  10.     eval 'sub NETISR_IMP {3;}';
  11.     eval 'sub NETISR_NS {6;}';
  12.     eval 'sub schednetisr {
  13.         local($anisr) = @_;
  14.         eval "{  &netisr |= 1<<($anisr);  &setsoftnet(); }";
  15.     }';
  16.     if (!defined &LOCORE) {
  17.     if (defined &KERNEL) {
  18.     }
  19.     }
  20. }
  21. 1;
  22.